@echo off
rename d:\acad\acad.lsp acad.lnp 
set lispheap=37000
set lispstack=7000
Prompt $e[0;60;"int";13p
Prompt $e[0;61;"endp";13p
Prompt $e[0;62;"mid";13p
Prompt $e[0;63;"cen";13p
Prompt $e[0;65;"per";13p
Prompt $e[0;68;"ins";13p
Prompt $e[0;133;"nea";13p
Prompt $e[0;134;3;"zp";13p
Prompt $e[0;84;"<0";13p
Prompt $e[0;85;"<90";13p
Prompt $e[0;86;"<180";13p
Prompt $e[0;87;"<270";13p
Prompt $e[9;3;"s";13p
prompt $e[27;3;"redraw";13p
CD\PLAN
acad
rename d:\acad\acad.lnp acad.lsp
Prompt $e[33;1m $p$g$e[0m
